lODefs.mesa 



Z-Sep-yS 13:58:17 



-- lODefs.Mesa Edited by Johnsson on April 10, 1978 10:54 AM 

DIRECTORY 

StreamDefs: FROM "streamdef s" ; 

lODefs: DEFINITIONS - 
BEGIN 

-- some control characters 



NUL: CHARACTER « 00; 
ControlA: CHARACTER - 



ControlB: 

ControlC: 

ControlD: 

ControlE: 

Control F: 

ControlG, 

ControlH, 

Controll, 

Control J, 

ControlK: 

ControlL, 

ControlM, 

ControlN 

ControlO 

ControlP 

ControlQ 

ControIR 

Controls 

ControlT 

ControlU 

ControlV 

ControlW 

ControlX 

ControlY 

ControlZ 

ESC: CHARACTER 

SP: CHARACTER 

DEL: CHARACTER 



'A- 
'B- 

•c- 

'D- 
'E- 
'F- 



CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
BEL: CHARACTER 
BS: CHARACTER ' 
TAB: CHARACTER 
LF: CHARACTER ' 
CHARACTER « ' K- 
FF: CHARACTER ' 
CR: CHARACTER - 



CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 

= 33C; 

« 177C; 



lOOB; 
lOOB; 
lOOB; 
lOOB; 
lOOB; 
lOOB; 
" 'G-IOOB; 

•H-IOOB; 
= 'I-IOOB; 

'J-IOOB; 
lOOB; 

'L-IOOB; 

'M~100B; 
lOOB; 
lOOB 
lOOB 
lOOB 
lOOB 
lOOB 
lOOB 
lOOB 
lOOB 
lOOB 
lOOB 
lOOB 
lOOB 



-- numerical output formatting 

NumberFormat: TYPE » RECORD [ 
base: [2. .36], 

zerofill, unsigned: BOOLEAN, 
columns: [0..255]]; 

StreamlO: PROGRAM; 



GetlnputStream, GetOutputStream: PROCEDURE RETURNS [StreamDefs .StreamHandle]; 
SetlnputStream. SetOutputStream: PROCEDURE [StreamDefs .StreamHandle] ; 

NewLine: PROCEDURE RETURNS [BOOLEAN]; 

ReadChar: PROCEDURE RETURNS [CHARACTER]; 
WriteChar: PROCEDURE [CHARACTER]; 

ReadEditedString: PROCEDURE [ 

STRING, PROCEDURE [CHARACTER] RETURNS [BOOLEAN], BOOLEAN] 
RETURNS [CHARACTER]; 

ReadString: PROCEDURE [STRING, PROCEDURE [CHARACTER] RETURNS [BOOLEAN]]; 
WriteString: PROCEDURE [STRING]; 

Rubout: SIGNAL; 

LineOverflow: SIGNAL [s: STRING] RETURNS [ns: STRING]; 

ReadID, ReadLine, WriteLine: PROCEDURE [STRING]; 

OutNumber: PROCEDURE [StreamDefs .StreamHandle , UNSPECIFIED, NumberFormat]; 

WriteNumber: PROCEDURE [UNSPECIFIED, NumberFormat]; 

ReadNumber: PROCEDURE [default: UNSPECIFIED, radix: CARDINAL] RETURNS [UNSPECIFIED]; 

ReadOctal : PROCEDURE RETURNS [UNSPECIFIED]; 

WriteOctal: PROCEDURE [UNSPECIFIED]; 
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ReadDecimal: PROCEDURE RETURNS [INTEGER]; 
WriteDecimal: PROCEDURE [INTEGER]; 

END. 



